| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| integer(kind=short), | public | :: | current | ||||
| type(thinning), | public, | ALLOCATABLE | :: | cuts(:) | |||
| integer(kind=short), | public | :: | id | ||||
| type(DateTime), | public | :: | next |
TYPE :: Practice INTEGER (KIND = short) :: id TYPE (Thinning), ALLOCATABLE :: cuts (:) INTEGER (KIND = short) :: current TYPE (DateTime) :: next END TYPE Practice